    /********************************************************/
    /*                                                      */
    /*                                                      */
    /*         Copyright (C), 1993  SEIKO EPSON Corp.       */
    /*         ALL RIGHTS RESERVED                          */
    /*                                                      */
    /*                                                      */
    /*  file name : fgetpos.c                               */
    /*                                                      */
    /*  Revision history                                    */
    /*      93/12/17    first release       S.Akaiwa        */
    /*      97/3/17	modified	    T.Katahira	    */
    /*			change function declaration	    */
    /*					to the ANSI style   */
    /*                                                      */
    /********************************************************/

#ifdef      UNIX
#include    "stdio.h"
#include    "smcvals.h"
#else
#include    <stdio.h>
#include    <smcvals.h>
#endif

int
fgetpos(FILE * fiStrmP, fpos_t * tdPosAreaP)

    /********************************************************/
    /*                                                      */
    /*  This is dummy function.                             */
    /*  If stdin, stdout or stderr is specified by fiStrmP, */
    /*  the fgetpos function returns 0, and pointer to      */
    /*  tdPosAreaP is stored to 0. Otherwise, this function */
    /*  returns EOF.                                        */
    /*                                                      */
    /*      RETURN  0   ... Success                         */
    /*              EOF ... Error                           */
    /*                                                      */
    /*  <ANSI>                                              */
    /*                                                      */
    /*      The fgetpos function gets the current value of  */
    /*      the file position.                              */
    /*                                                      */
    /*      RETURN  0   ... Success                         */
    /*              EOF ... Error                           */
    /*                                                      */
    /********************************************************/

    /* FILE    *fiStrmP    ;       pointer to target stream */
    /* fpos_t  *tdPosAreaP ;        position indicator area */
    {
     if(_ISSTDIO(fiStrmP)){                 /* stream stdio */
        *tdPosAreaP = 0L;           /* set current position */
        return  (int)0;                       /* successful */
     }
     else {                                        /* other */
		 *tdPosAreaP = ftell(fiStrmP);
		 return 0;
     }
    }

